home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Index.dxr / 00108.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.0 KB  |  87 lines
  1. global hiliterect, returnflag, endSprite
  2.  
  3. on prepareMovie
  4.   set hiliterect to 49
  5.   set returnflag to 0
  6. end
  7.  
  8. on startMovie
  9.   global returnlist
  10.   set returnlist to value(field "Index Location")
  11.   if getProp(returnlist, #flag) = 1 then
  12.     go(getProp(returnlist, #framenumber) && "Menu")
  13.   end if
  14. end
  15.  
  16. on initcursor
  17.   set mycursor to the number of member "hand"
  18.   set mycursormask to the number of member "hand mask"
  19.   set the cursor of sprite hiliterect to [mycursor, mycursormask]
  20. end
  21.  
  22. on changecursor direction
  23.   set mycursor to the number of member direction
  24.   set mycursormask to the number of member (direction & "Mask")
  25.   cursor([mycursor, mycursormask])
  26. end
  27.  
  28. on scrollpictup step
  29.   global spriteNum
  30.   if the top of sprite 2 < 121 then
  31.     changecursor("Up")
  32.     set the locV of sprite 2 to the locV of sprite 2 + step
  33.     repeat with spriteNum = 2 to endSprite - 1
  34.       setlistposition()
  35.     end repeat
  36.   else
  37.     cursor(-1)
  38.   end if
  39. end
  40.  
  41. on scrollpictdown step
  42.   global spriteNum
  43.   if the bottom of sprite endSprite > 422 then
  44.     changecursor("Down")
  45.     set the locV of sprite 2 to the locV of sprite 2 - step
  46.     repeat with spriteNum = 2 to endSprite - 1
  47.       setlistposition()
  48.     end repeat
  49.   else
  50.     cursor(-1)
  51.   end if
  52. end
  53.  
  54. on setlistposition
  55.   global spriteNum
  56.   set cnum1 to the memberNum of sprite spriteNum
  57.   set cnum2 to the memberNum of sprite spriteNum + 1
  58.   set the locV of sprite (spriteNum + 1) to the locV of sprite spriteNum + (the height of member cnum1 + 5)
  59. end
  60.  
  61. on switchmethod
  62.   set returnflag to 0
  63.   repeat with spriteNum = 2 to endSprite
  64.     puppetSprite(spriteNum, 0)
  65.   end repeat
  66.   puppetSprite(roomcontentsprite, 0)
  67.   puppetSprite(45, 0)
  68.   set mouseovermember to the name of the mouseMember
  69.   go(mouseovermember && "Menu")
  70. end
  71.  
  72. on toexitmenu
  73.   puppetSprite(45, 1)
  74.   go("Exit")
  75. end
  76.  
  77. on stopMovie
  78.   gobackpath()
  79. end
  80.  
  81. on toobjectmovie newfile
  82.   global currlabel
  83.   put "[#FrameNumber:" && QUOTE & currlabel & QUOTE & ", #Text:" && the locV of sprite 2 & ", #Flag: 1]" into field "Index Location"
  84.   put newfile into field "Current Object"
  85.   go(1, "Object")
  86. end
  87.